1 REM SYSTEME D'ALARME
2 IFPEEK(#30D)=18THENPOKE770,7ELSEGOTO2:FORI=1TO100000:NEXTI:POKE7770,247:GOTO2